﻿function AutomateWPS(tableid,count,num,title)
{
    try
    {
        //        var curTbl = document.getElementById(tableid);
        var oXL = new ActiveXObject("ET.Application"); 
        if (oXL == null)
        {
            alert('导出WPS失败，确定是否安装了WPS，浏览器设置是否正确');
        }else{
            //创建AX对象excel 
            var oWB = oXL.Workbooks.Add(); 
            //获取workbook对象 
            var oSheet = oWB.ActiveSheet; 
            //激活当前sheet 
            var Lenr =tableid.rows.length;// curTbl.rows.length;
            //取得表格行数 
            var merge='';
            merge ='A1:'+getLetter(count)+'1';
            oXL.Range(merge).MergeCells = true;  //合并单元格
            merge ='A2:'+getLetter(count)+'2';
            oXL.Range(merge).MergeCells = true;  //合并单元格
                       
            oSheet.Cells(1,1).HorizontalAlignment = 3;
            
            oSheet.Rows("1:1").Font.Size = 18;   //设置第1行的字体大小
            oSheet.Rows("1:1").Font.Bold = true;  //设置第1，1行为粗体
            
            if(title=='脱硫主要参数日报表'||title=='辅机耗电统计日报表'){
                oSheet.Columns("A:A").ColumnWidth = 18;  //设置单元格宽度
            }else if(title=='电气主要参数日报表'){
                oSheet.Columns("A:A").ColumnWidth = 20;  //设置单元格宽度
            }else if(title=='汽机主要参数日报表'){
                oSheet.Columns("A:A").ColumnWidth = 25;  //设置单元格宽度
            }else if(title=='锅炉主要参数日报表'){
                oSheet.Columns("A:A").ColumnWidth = 23;  //设置单元格宽度
            }else if(title=='综合指标'){
                oSheet.Columns("A:A").ColumnWidth = 30;  //设置单元格宽度
                oSheet.Columns("C:E").ColumnWidth = 20;  //设置单元格宽度
            }else if(title=='分值指标月报表'||title=='分值指标日报表'){
                oSheet.Columns("A:A").ColumnWidth = 20;  //设置单元格宽度
                oSheet.Columns("C:I").ColumnWidth = 15;  //设置单元格宽度
            }else if(title=='投退时间纪录'){
                oSheet.Columns("A:C").ColumnWidth = 30;  //设置单元格宽度
            }else if(title=='耗差分值月报表'){
                oSheet.Columns("A:A").ColumnWidth = 5;  //设置单元格宽度
                oSheet.Columns("B:P").ColumnWidth = 22;  //设置单元格宽度
            }
            if(title!='耗差分值月报表'){
                for(k=2;k<count+1;k++){                
                    oSheet.Cells(3,k).HorizontalAlignment = 3;                
                }
            }else
            {
                for(k=1;k<count+1;k++){                
                    oSheet.Cells(3,k).HorizontalAlignment = 3;                
                }
            }
            if(title=='分值指标日报表'||title=='分值指标月报表'|| title=='综合指标'|| title=='电气主要参数日报表'||title=='辅机耗电统计日报表'||title=='脱硫主要参数日报表'||title=='汽机主要参数日报表'||title=='锅炉主要参数日报表')
            {  
                for(j=4;j<num+3;j++){
                    oSheet.Cells(j,3).HorizontalAlignment = 4;
                    oSheet.Cells(j,2).HorizontalAlignment = 3;
                }
            }else if(title=='投退时间纪录')
            {
                for(j=4;j<num+3;j++){
                    oSheet.Cells(j,3).HorizontalAlignment = 4;
                    oSheet.Cells(j,2).HorizontalAlignment = 4;
                }
            }else if(title=='耗差分值月报表'){
                for(j=4;j<num+5;j++){
                    oSheet.Cells(j,2).HorizontalAlignment = 4;
                    oSheet.Cells(j,3).HorizontalAlignment = 4;
                }
            }
            for (i = 0; i < Lenr; i++) 
            { 
                var Lenc = tableid.rows(i).cells.length; 
                //取得每行的列数 
                for (j = 0; j < Lenc; j++) 
                {
                    var cellValue;
                    cellValue = tableid.rows(i).cells(j).innerText;
                    if(j==1 || j==2)
                    {
                        cellValue = "'"+cellValue; //转换为文本格式
                    }  
                    oSheet.Cells(i + 1, j + 1).value = cellValue; 
                } 
            } 
            //设置excel可见属性
            oXL.Visible = true;
        }
    }catch(e){
        alert("导出WPS失败，确定是否安装了WPS");

        oXL = null; 
        oWB = null; 
        oSheet = null;
    }
    //oSheet.Columns.AutoFit; 
    //oXL.UserControl = true;  //wps交由用户控制 很重要
}